home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / GEM / VDICONTR.D < prev    next >
Encoding:
Modula Definition  |  1990-10-09  |  2.3 KB  |  68 lines
  1. DEFINITION MODULE VDIControls;
  2.  
  3.  
  4. (*  Megamax-Modula 2 GEM-Library :  Die VDI Kontrollfunktionen
  5.  *
  6.  *  Autor: Manuel Chakravarty           Erstellt :  29.10.87
  7.  *
  8.  *  Version   2.2     V#0015
  9.  *)
  10.  
  11. FROM    SYSTEM   IMPORT WORD;
  12.  
  13. FROM    GrafBase IMPORT Rectangle;
  14.  
  15. FROM    GEMEnv   IMPORT DeviceHandle;
  16.  
  17.  
  18. PROCEDURE ClearWorkstation (handle: DeviceHandle);
  19.  
  20.         (*  Löscht den Arbeitsbereich oder löst zum Beispiel bei Druckern
  21.          *  einen Seitenvorschub aus.
  22.          *)
  23.                 
  24. PROCEDURE UpdateWorkstation (handle: DeviceHandle);
  25.  
  26.         (*  Ist für Bildschirmarbeitsstationen irrelevant, bei Arbeits-
  27.          *  stationen, die die Ausgaben erst puffern (z.B.: Drucker)
  28.          *  werden durch diesem Aufruf alle gepufferten Aktionen ausge-
  29.          *  führt.
  30.          *)
  31.  
  32. PROCEDURE LoadFonts (    handle: DeviceHandle;
  33.                          select: WORD;
  34.                      VAR loaded: CARDINAL);
  35.  
  36.         (*  Damit können gemäß der Datei 'ASSIGN.SYS' (gehört zum optionalen
  37.          *  GDOS) zusätzliche Zeichensätze geladen werden.
  38.          *  'loaded' gibt an, wieviele Zeichensätze nachgeladen wurden.
  39.          *  'select' wird bisher nicht unterstützt.
  40.          *  Im DEMO-Modul "TextDemo" finden Sie ein Beispiel, wie
  41.          *  diese GDOS-Fonts benutzt werden.
  42.          *)
  43.  
  44. PROCEDURE UnloadFonts (handle: DeviceHandle; select: WORD);
  45.  
  46.         (*  Die mit 'LoadFonts' nachgeladenen Zeichensätze werden
  47.          *  wieder aus dem Speicher entfernt. Die Zeichensätze werden
  48.          *  allerdings erst aus dem Speicher gelöscht, nachdem sie
  49.          *  von allen Arbeitsstationen freigegeben wurden.
  50.          *)
  51.  
  52. PROCEDURE SetClipping (handle: DeviceHandle; frame: Rectangle);
  53.  
  54.         (*  Mit dieser Procedur kann man erreichen, daß alle Ausgaben
  55.          *  außerhalb eines bestimmten Rechteckbereichs ('frame') unter-
  56.          *  drückt werden.
  57.          *  Dabei ist zu beachten, daß dies bei den Rasterkopierroutinen
  58.          *  nur für Speicherbereiche funktioniert, deren Startadresse mit
  59.          *  'NIL' besetzt wurde. (siehe auch 'GEMRasters')
  60.          *)
  61.         
  62. PROCEDURE DisableClipping (handle: DeviceHandle);
  63.  
  64.         (*  Hiernach werden alle Ausgaben wieder vollständig durch-
  65.          *  geführt.
  66.          *)
  67.         
  68. END VDIControls.